home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Demos / inspector.stk < prev    next >
Encoding:
Text File  |  1996-02-22  |  1.1 KB  |  26 lines
  1. #!/usr/local/bin/stk -f
  2. ;;;;
  3. ;;;; i n s p e c t o r . s t k   --  A very simple demo of the inspector
  4. ;;;;
  5. ;;;; Copyright ⌐ 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
  6. ;;;; 
  7. ;;;; Permission to use, copy, and/or distribute this software and its
  8. ;;;; documentation for any purpose and without fee is hereby granted, provided
  9. ;;;; that both the above copyright notice and this permission notice appear in
  10. ;;;; all copies and derived works.  Fees for distribution or use of this
  11. ;;;; software or derived works may only be charged with express written
  12. ;;;; permission of the copyright holder.  
  13. ;;;; This software is provided ``as is'' without express or implied warranty.
  14. ;;;;
  15. ;;;;           Author: Erick Gallesio [eg@unice.fr]
  16. ;;;;    Creation date: 22-Jan-1995 18:09
  17. ;;;; Last file update: 22-Jan-1995 18:10
  18.  
  19.  
  20. (label '.l1 :text "Click on a node of the viewer to see the selected widget" 
  21.         :relief 'ridge :fg "blue")
  22. (label '.l2 :text "Double click on a node to inspect it" :relief 'ridge :fg "blue")
  23. (inspect .l1)
  24. (view .inspector)
  25. (pack .l1 .l2 :expand #t :fill 'x)
  26.